home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
qbtools1.arc
/
AECOLINI.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-12-10
|
640b
|
30 lines
rem $linesize:132
rem $title:'Application Engineer Standard routines'
rem $subtitle:'Set up color table from file'
' Include the COMMON values
rem $include:'AESHARED.BAS'
sub color.init(f$) static
open "r",1,f$
w!=lof(1)
if w!=0 then
for j%=1% to 10%
ae.fg%(j%)=7%
ae.bg%(j%)=0%
ae.hg%(j%)=0%
next j%
else
field #1,60 as ae.color$
get #1,1
for j%=1% to 10%
ae.fg%(j%)=asc(mid$(ae.color$,(j%-1%)*3%+1%,1%))
ae.bg%(j%)=asc(mid$(ae.color$,(j%-1%)*3%+2%,1%))
ae.hg%(j%)=asc(mid$(ae.color$,(j%-1%)*3%+3%,1%))
next j%
end if
close 1
end sub